****************************************************************************
* Nome do Arquivo: 	codigo_eseb10.do
* Data:			 	23/03/2020
* Autor: 			Fred Batista
* Prop�sito: 		An�lise do ESEB2010
* Dados: 			ESEB2010.dta
* Output:			-	*/
****************************************************************************

* RECODIFICA��O

* homem

gen homem = SEXO

* idade (cont�nua)

replace idade = (idade - 17)/(93 - 17)

* escolaridade 

gen escolaridade = (esc -1)/9

* regiao

gen regiao = reg

* avalia��es da economia 

gen avecon = v234
recode avecon (1=4) (2=3) (3=2) (4=1) (5=0) (6=.)

* renda

gen renda = rendaf
summarize renda
replace renda = (renda - r(min))/(r(max) - r(min))

* avalia��o do governo

drop avgov
gen avgov = v39
recode avgov (5 6=.)
replace avgov = 4 - avgov

* gosta do pt

gen gostapt = v45
recode gostapt (4 =1) (else=0)

* gosta do psdb

gen gostapsdb = v45
recode gostapsdb (8 =1) (else=0)

* rejeita pt

gen rejeitapt = v132
recode rejeitapt (1=1) (else=0)

* rejeita psdb

gen rejeitapsdb = v134
recode rejeitapsdb (1=1) (else=0)

* ideologia pt

gen pt_de = v66
recode pt_de (11 12 13 14=.)

* localiza pt

gen loc_pt = pt_de
recode loc_pt (.=0) (else=1)

* ideologia psdb

gen psdb_de = v68
recode psdb_de (11 12 13 14=.)

* localiza psdb

gen loc_psdb = psdb_de
recode loc_psdb (.=0) (else=1)

* ideologia pmdb

gen pmdb_de = v70
recode pmdb_de (11 12 13 14=.)

* localiza pmdb

gen loc_pmdb = pmdb_de
recode loc_pmdb (.=0) (else=1)

* ideologia respodente

gen resp_de = v79
recode resp_de (11 12 13 14=.)

gen resp_de01 = resp_de/10

* localiza respondente

gen loc_resp = resp_de
recode loc_resp (.=0) (else=1)

* ideologia dilma

gen dilma_de = v76
recode dilma_de (11 12 13 14=.)

* localiza dilma

gen loc_dilma = dilma_de
recode loc_dilma (.=0) (else=1)

* ideologia serra

gen serra_de = v77
recode serra_de (11 12 13 14=.)

* localiza serra

gen loc_serra = serra_de
recode loc_serra (.=0) (else=1)

* ideologia marina

gen marina_de = v78
recode serra_de (11 12 13 14=.)

* localiza marina

gen loc_marina = marina_de
recode loc_marina (.=0) (else=1)

* localiza todos

gen loc_geral = 0
replace loc_geral = 1 if loc_pt==1 & loc_psdb==1 & loc_pmdb==1 & loc_serra==1 & loc_dilma==1 & loc_marina==1

* psdb a esquerda de pt

gen psdbpt_ord = 1
replace psdbpt_ord = 0 if psdb_de <= pt_de

* polarizacao psdb pt

gen dist_psdbpt = psdb_de - pt_de

* polarizacao serra dilma

gen dist_serradilma = serra_de - dilma_de


* preenche todos os requisitos

gen todosreq = 0
replace todosreq = 1 if loc_resp==1 & loc_geral==1 & psdbpt_ord ==1

* bolsa fam�lia

gen bolsa = v241
recode bolsa (1=1) (2=0)

* voto 2o turno

gen voto = v96
recode voto (2=1) (1=0) (else=.)


** informac�o

* bateria V ou F

gen item1 = v171

gen item3 = v173

recode item1 item3 (2=1) (1 3=0) (4=.)

gen item2 = v172

gen item4 = v174

recode item2 item4 (1=1) (2 3=0) (4=.)

alpha item1 item2 item3 item4

gen conhecimento = (item1 + item2 + item3 + item4)/4

egen conhe_g = cut(conhecimento), group(2)

factor  item1 item2 item3 item4, factor(1)

predict conhecimento2

summarize conhecimento2

replace conhecimento2 = (conhecimento2 - r(min))/(r(max) - r(min))

* peso: pesopop


* AN�LISE

* requisito 1

tab loc_resp [aweight=pesopop]

probit loc_resp conhecimento escolaridade renda idade homem i.regiao [pweight=pesopop]

margins, dydx(conhecimento)

* requisitos 1 e 2

tab loc_geral [aweight=pesopop]

probit loc_geral conhecimento escolaridade renda idade homem i.regiao [pweight=pesopop]

margins, dydx(conhecimento)

* requisito 3: psdb pt

tab psdbpt_ord [aweight=pesopop]

probit psdbpt_ord conhecimento escolaridade renda idade homem i.regiao [pweight=pesopop]

margins, dydx(conhecimento)

* preenchimento dos 3 requisitos

tab todosreq [aweight=pesopop]

probit todosreq conhecimento escolaridade renda idade homem i.regiao [pweight=pesopop]

margins, dydx(conhecimento escolaridade)


* dimensionalide da escala por an�lise fatorial

factor resp_de dilma_de serra_de marina_de pt_de psdb_de pmdb_de [aweight=pesopop] if loc_resp==1, factor(1)

factor resp_de dilma_de serra_de marina_de pt_de psdb_de pmdb_de [aweight=pesopop] if todosreq==0, factor(1)

factor resp_de dilma_de serra_de marina_de pt_de psdb_de pmdb_de [aweight=pesopop] if todosreq==1, factor(1)

factor resp_de dilma_de serra_de marina_de pt_de psdb_de pmdb_de [aweight=pesopop] if conhe_g==0, factor(1)

factor resp_de dilma_de serra_de marina_de pt_de psdb_de pmdb_de [aweight=pesopop] if conhe_g==1, factor(1)

* intera��o com todosreq

probit voto resp_de avgov  gostapt gostapsdb escolaridade renda idade homem i.regiao avecon bolsa [pweight=pesopop]

probit voto c.resp_de##c.todosreq avgov  gostapt gostapsdb escolaridade renda idade homem i.regiao avecon bolsa [pweight=pesopop]

probit voto c.resp_de01##c.todosreq avgov  gostapt gostapsdb escolaridade renda idade homem i.regiao avecon bolsa [pweight=pesopop]

margins, dydx(resp_de01) at(todosreq=(0(1)1))
